home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / islpcb20.zip / SITELIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-27  |  26KB  |  1,500 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER003
  20.     Integer  INTEGER004
  21.     Integer  INTEGER005
  22.     Integer  INTEGER006
  23.     Integer  INTEGER007
  24.     Integer  INTEGER008
  25.     Integer  INTEGER009
  26.     Integer  INTEGER010
  27.     Integer  INTEGER011
  28.     Integer  INTEGER012
  29.     Integer  INTEGER013
  30.     Integer  INTEGER014
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.     String   STRING017
  45.     String   STRING018
  46.     String   STRING019
  47.     String   STRING020
  48.     String   STRING021
  49.     String   TSTRING022(100)
  50.     String   TSTRING023(250)
  51.     String   TSTRING024(250)
  52.     Declare  Procedure PROC001()
  53.     Declare  Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  54.     Declare  Procedure PROC003()
  55.  
  56. ;------------------------------------------------------------------------------
  57.  
  58.     Goto LABEL001
  59.     End
  60.  
  61. ;------------------------------------------------------------------------------
  62.  
  63.     Procedure PROC001()
  64.  
  65.     Integer  INTEGER001
  66.     Integer  INTEGER002
  67.     Byte     BYTE001
  68.  
  69.     INTEGER001 = GetDrive()
  70.     INTEGER002 = Os()
  71.     FOpen 1, PPEPath() + "FTP.TXT", 0, 2
  72.     BYTE001 = FTell(1)
  73.     FClose 1
  74.  
  75.     EndProc
  76.  
  77.  
  78. ;------------------------------------------------------------------------------
  79.  
  80.     Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  81.  
  82.     STRING001 = "NO"
  83.     STRING002 = "UNREGISTERED"
  84.     STRING003 = "UNREGISTERED"
  85.  
  86.     EndProc
  87.  
  88.  
  89. ;------------------------------------------------------------------------------
  90.  
  91.     Procedure PROC003()
  92.  
  93.     Color 0
  94.     Cls
  95.     AnsiPos 25, 10
  96.     Print "@X0FSHAREWARE EVALUATION VERSION"
  97.     AnsiPos 20, 12
  98.     Print "@X0ECopyright 1995,96 (c) Shuttle Software"
  99.     AnsiPos 30, 14
  100.     Print "@X0EAll Rights Reserved"
  101.     Delay 55
  102.  
  103.     EndProc
  104.  
  105.     :LABEL001
  106.     STRING007 = ""
  107.     STRING013 = ""
  108.     STRING008 = ""
  109.     STRING010 = ""
  110.     STRING011 = ""
  111.     STRING017 = ""
  112.     STRING015 = ""
  113.     STRING019 = ""
  114.     STRING020 = ""
  115.     STRING021 = ""
  116.     STRING004 = ""
  117.     STRING005 = "YES"
  118.     STRING006 = "NO"
  119.     STRING009 = "NO"
  120.     STRING014 = "NO"
  121.     STRING018 = "N"
  122.     STRING016 = "N"
  123.     STRING012 = "N"
  124.     INTEGER008 = 0
  125.     INTEGER009 = 0
  126.     INTEGER010 = 0
  127.     INTEGER011 = 0
  128.     INTEGER012 = 0
  129.     INTEGER013 = 0
  130.     INTEGER014 = 0
  131.     INTEGER007 = 0
  132.     INTEGER006 = 0
  133.     INTEGER005 = 0
  134.     INTEGER003 = 0
  135.     INTEGER004 = 0
  136.     PROC001()
  137.     If (AnsiOn()) Then
  138.         Log "-=≡[ Internet Site List Entered ]≡=-", 0
  139.         PROC002(STRING021, STRING019, STRING020)
  140.         Gosub LABEL002
  141.         PROC003()
  142.     Else
  143.         PrintLn "This program requires that your ANSI support is enabled!"
  144.         Wait
  145.     Endif
  146.     End
  147.     :LABEL002
  148.     While (STRING010 <> "Q") Do
  149.         STRING008 = ""
  150.         STRING011 = ""
  151.         STRING005 = "YES"
  152.         Color 0
  153.         Cls
  154.         PrintLn "@X00"
  155.         PrintLn "@X0E     @X0B▐@X1B ┌────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  156.         PrintLn "@X0E     @X0B▐@X1B │@X1E                   INTERNET SITE LIST v2.0                   @X1B @X1E  @X10│@X1B @X08▌@X0B"
  157.         PrintLn "@X0F▄▄▄▄▄@X0B▐@X1B │@X1E                                                                @X10│@X1B @X08▌@X07▄▄@X0F▄▄@X0B"
  158.         PrintLn "@X0E▄▄▄▄▄@X0B▐@X1B │@X1E                                                                @X10│@X1B @X08▌@X06▄▄@X0E▄▄@X0B"
  159.         PrintLn "@X0D▄▄▄▄▄@X0B▐@X1B └@X10────────────────────────────────────────────────────────────────┘@X1B @X08▌@X05▄▄@X0D▄▄@X0B"
  160.         AnsiPos 17, 5
  161.         Print "@X1FSysOp@X17: @X1F", STRING019
  162.         AnsiPos 43, 5
  163.         Print "@X1FBBS@X17: @X1F", STRING020
  164.         AnsiPos 1, 7
  165.         PrintLn "@X0C▄▄▄▄▄▄▄▄@X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0C▄▄@X0B"
  166.         PrintLn "@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B ┌─────────────────────────────────────@X10┐@X19 @X08▌@X02▄▄@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  167.         PrintLn "@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │  @X1CF@X1FTP Site (File Transfer Protocol)@X1B  @X10│@X19 @X08▌@X01▄▄@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  168.         PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │  @X1CW@X1FWW Site (World Wide Web)@X1B          @X10│@X19 @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  169.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CI@X1FRC Site (Internet Relay Chat)@X1B     @X10│@X19 @X08▌@X0B"
  170.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CT@X1FelNet Site (Remote Logon)@X1B         @X10│@X19 @X08▌@X0B"
  171.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CU@X1FseNet Site (Newsgroup List)@X1B       @X10│@X19 @X08▌@X0B"
  172.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CE@X1F-Mail Site (Electronic Mail)@X1B      @X10│@X19 @X08▌@X0B"
  173.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CS@X1Fearch for a Internet Site@X1B         @X10│@X19 @X08▌@X0B"
  174.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CD@X1Fownload a Internet Site List@X1B      @X10│@X19 @X08▌@X0B"
  175.         PrintLn "@X0E                @X0B  ▐@X1B │  @X1CQ@X1Fuit and exit back to the BBS@X1B      @X10│@X19 @X08▌@X0B"
  176.         PrintLn "@X0E                @X0B  ▐@X1B └@X10─────────────────────────────────────┘@X19 @X08▌@X0B"
  177.         PrintLn "@X00"
  178.         Print "@X0A                  Use the @X0F @X0Aand @X0F @X0Akeys to highlight an option"
  179.         AnsiPos 24, 17
  180.         Print "@X70Quit and exit back to the BBS    @X1B"
  181.         INTEGER014 = 17
  182.         INTEGER007 = 17
  183.         While (STRING005 <> "NO") Do
  184.             STRING010 = Inkey()
  185.             If (Left(STRING010, 2) == "UP") Then
  186.                 If (INTEGER007 > 9) Then
  187.                     INTEGER014 = INTEGER007
  188.                     INTEGER007 = INTEGER007 - 1
  189.                     Gosub LABEL004
  190.                 Endif
  191.             Endif
  192.             If (Left(STRING010, 4) == "DOWN") Then
  193.                 If (INTEGER007 < 17) Then
  194.                     INTEGER014 = INTEGER007
  195.                     INTEGER007 = INTEGER007 + 1
  196.                     Gosub LABEL004
  197.                 Endif
  198.             Endif
  199.             If (STRING010 == Chr(13)) Then
  200.                 If (INTEGER007 == 9) Then
  201.                     STRING010 = "F"
  202.                     STRING005 = "NO"
  203.                 Endif
  204.                 If (INTEGER007 == 10) Then
  205.                     STRING010 = "W"
  206.                     STRING005 = "NO"
  207.                 Endif
  208.                 If (INTEGER007 == 11) Then
  209.                     STRING010 = "I"
  210.                     STRING005 = "NO"
  211.                 Endif
  212.                 If (INTEGER007 == 12) Then
  213.                     STRING010 = "T"
  214.                     STRING005 = "NO"
  215.                 Endif
  216.                 If (INTEGER007 == 13) Then
  217.                     STRING010 = "U"
  218.                     STRING005 = "NO"
  219.                 Endif
  220.                 If (INTEGER007 == 14) Then
  221.                     STRING010 = "E"
  222.                     STRING005 = "NO"
  223.                 Endif
  224.                 If (INTEGER007 == 15) Then
  225.                     STRING010 = "S"
  226.                     STRING005 = "NO"
  227.                 Endif
  228.                 If (INTEGER007 == 16) Then
  229.                     STRING010 = "D"
  230.                     STRING005 = "NO"
  231.                 Endif
  232.                 If (INTEGER007 == 17) Then
  233.                     STRING010 = "Q"
  234.                     STRING005 = "NO"
  235.                 Endif
  236.             Endif
  237.             If (Upper(STRING010) == Chr(70)) Then
  238.                 STRING010 = "F"
  239.                 STRING005 = "NO"
  240.             Endif
  241.             If (Upper(STRING010) == Chr(87)) Then
  242.                 STRING010 = "W"
  243.                 STRING005 = "NO"
  244.             Endif
  245.             If (Upper(STRING010) == Chr(73)) Then
  246.                 STRING010 = "I"
  247.                 STRING005 = "NO"
  248.             Endif
  249.             If (Upper(STRING010) == Chr(84)) Then
  250.                 STRING010 = "T"
  251.                 STRING005 = "NO"
  252.             Endif
  253.             If (Upper(STRING010) == Chr(85)) Then
  254.                 STRING010 = "U"
  255.                 STRING005 = "NO"
  256.             Endif
  257.             If (Upper(STRING010) == Chr(69)) Then
  258.                 STRING010 = "E"
  259.                 STRING005 = "NO"
  260.             Endif
  261.             If (Upper(STRING010) == Chr(83)) Then
  262.                 STRING010 = "S"
  263.                 STRING005 = "NO"
  264.             Endif
  265.             If (Upper(STRING010) == Chr(68)) Then
  266.                 STRING010 = "D"
  267.                 STRING005 = "NO"
  268.             Endif
  269.             If (Upper(STRING010) == Chr(81)) Then
  270.                 STRING010 = "Q"
  271.                 STRING005 = "NO"
  272.             Endif
  273.         EndWhile
  274.         If (STRING010 == "D") Then
  275.             Gosub LABEL059
  276.             AnsiPos 12, 10
  277.             PrintLn "@X0APick the Internet Site Listing you would like to download."
  278.             PrintLn 
  279.             Print "@X0E    [@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll of them"
  280.             InputText " ", STRING011, 15, 1
  281.             If (Upper(STRING011) == "I") Then
  282.                 PrintLn "@X00"
  283.                 Download "IRC.TXT"
  284.                 Goto LABEL003
  285.             Endif
  286.             If (Upper(STRING011) == "F") Then
  287.                 PrintLn "@X00"
  288.                 Download "FTP.TXT"
  289.                 Goto LABEL003
  290.             Endif
  291.             If (Upper(STRING011) == "W") Then
  292.                 PrintLn "@X00"
  293.                 Download "WWW.TXT"
  294.                 Goto LABEL003
  295.             Endif
  296.             If (Upper(STRING011) == "T") Then
  297.                 PrintLn "@X00"
  298.                 Download "TELNET.TXT"
  299.                 Goto LABEL003
  300.             Endif
  301.             If (Upper(STRING011) == "U") Then
  302.                 PrintLn "@X00"
  303.                 Download "USENET.TXT"
  304.                 Goto LABEL003
  305.             Endif
  306.             If (Upper(STRING011) == "E") Then
  307.                 PrintLn "@X00"
  308.                 Download "EMAIL.TXT"
  309.                 Goto LABEL003
  310.             Endif
  311.             If (Upper(STRING011) == "A") Then
  312.                 PrintLn "@X00"
  313.                 Download "EMAIL.TXT FTP.TXT IRC.TXT TELNET.TXT USENET.TXT WWW.TXT"
  314.             Endif
  315.             :LABEL003
  316.             Continue
  317.         Endif
  318.         If (STRING010 == "I") Then
  319.             Gosub LABEL059
  320.             AnsiPos 9, 10
  321.             Print "@X0EWould you like to [@X0FA@X0E]dd a IRC site, or [@X0FL@X0E]ist all IRC sites"
  322.             InputText " ", STRING011, 15, 1
  323.             If (Upper(STRING011) == "A") Gosub LABEL005
  324.             If (Upper(STRING011) == "L") Gosub LABEL011
  325.             Continue
  326.         Endif
  327.         If (STRING010 == "F") Then
  328.             Gosub LABEL059
  329.             AnsiPos 9, 10
  330.             Print "@X0EWould you like to [@X0FA@X0E]dd a FTP site, or [@X0FL@X0E]ist all FTP sites"
  331.             InputText " ", STRING011, 15, 1
  332.             If (Upper(STRING011) == "A") Gosub LABEL006
  333.             If (Upper(STRING011) == "L") Gosub LABEL017
  334.             Continue
  335.         Endif
  336.         If (STRING010 == "W") Then
  337.             Gosub LABEL059
  338.             AnsiPos 9, 10
  339.             Print "@X0EWould you like to [@X0FA@X0E]dd a WWW site, or [@X0FL@X0E]ist all WWW sites"
  340.             InputText " ", STRING011, 15, 1
  341.             If (Upper(STRING011) == "A") Gosub LABEL007
  342.             If (Upper(STRING011) == "L") Gosub LABEL023
  343.             Continue
  344.         Endif
  345.         If (STRING010 == "T") Then
  346.             Gosub LABEL059
  347.             AnsiPos 6, 10
  348.             Print "@X0EWould you like to [@X0FA@X0E]dd a TelNet site, or [@X0FL@X0E]ist all TelNet sites"
  349.             InputText " ", STRING011, 15, 1
  350.             If (Upper(STRING011) == "A") Gosub LABEL008
  351.             If (Upper(STRING011) == "L") Gosub LABEL029
  352.             Continue
  353.         Endif
  354.         If (STRING010 == "U") Then
  355.             Gosub LABEL059
  356.             AnsiPos 6, 10
  357.             Print "@X0EWould you like to [@X0FA@X0E]dd a UseNet site, or [@X0FL@X0E]ist all UseNet sites"
  358.             InputText " ", STRING011, 15, 1
  359.             If (Upper(STRING011) == "A") Gosub LABEL009
  360.             If (Upper(STRING011) == "L") Gosub LABEL035
  361.             Continue
  362.         Endif
  363.         If (STRING010 == "E") Then
  364.             Gosub LABEL059
  365.             AnsiPos 6, 10
  366.             Print "@X0EWould you like to [@X0FA@X0E]dd a E-Mail site, or [@X0FL@X0E]ist all E-Mail sites"
  367.             InputText " ", STRING011, 15, 1
  368.             If (Upper(STRING011) == "A") Gosub LABEL010
  369.             If (Upper(STRING011) == "L") Gosub LABEL041
  370.             Continue
  371.         Endif
  372.         If (STRING010 == "S") Then
  373.             Gosub LABEL059
  374.             AnsiPos 13, 10
  375.             PrintLn "@X0APick the Internet Site Listing you would like to search."
  376.             PrintLn 
  377.             Print "@X0E    [@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll of them"
  378.             InputText " ", STRING008, 15, 1
  379.             Gosub LABEL047
  380.         Endif
  381.     EndWhile
  382.     Return
  383.     :LABEL004
  384.     If (INTEGER014 == 17) Then
  385.         AnsiPos 24, 17
  386.         Print "@X1CQ@X1Fuit and exit back to the BBS    @X1B"
  387.     Endif
  388.     If (INTEGER014 == 16) Then
  389.         AnsiPos 24, 16
  390.         Print "@X1CD@X1Fownload a Internet Site List    @X1B"
  391.     Endif
  392.     If (INTEGER014 == 15) Then
  393.         AnsiPos 24, 15
  394.         Print "@X1CS@X1Fearch for a Internet Site       @X1B"
  395.     Endif
  396.     If (INTEGER014 == 14) Then
  397.         AnsiPos 24, 14
  398.         Print "@X1CE@X1F-Mail Site (Electronic Mail)    @X1B"
  399.     Endif
  400.     If (INTEGER014 == 13) Then
  401.         AnsiPos 24, 13
  402.         Print "@X1CU@X1FseNet Site (Newsgroup List)     @X1B"
  403.     Endif
  404.     If (INTEGER014 == 12) Then
  405.         AnsiPos 24, 12
  406.         Print "@X1CT@X1FelNet Site (Remote Logon)       @X1B"
  407.     Endif
  408.     If (INTEGER014 == 11) Then
  409.         AnsiPos 24, 11
  410.         Print "@X1CI@X1FRC Site (Internet Relay Chat)   @X1B"
  411.     Endif
  412.     If (INTEGER014 == 10) Then
  413.         AnsiPos 24, 10
  414.         Print "@X1CW@X1FWW Site (World Wide Web)        @X1B"
  415.     Endif
  416.     If (INTEGER014 == 9) Then
  417.         AnsiPos 24, 9
  418.         Print "@X1CF@X1FTP Site (File Transfer Protocol)@X1B"
  419.     Endif
  420.     If (INTEGER007 == 17) Then
  421.         AnsiPos 24, 17
  422.         Print "@X70Quit and exit back to the BBS    @X1B"
  423.     Endif
  424.     If (INTEGER007 == 16) Then
  425.         AnsiPos 24, 16
  426.         Print "@X70Download a Internet Site List    @X1B"
  427.     Endif
  428.     If (INTEGER007 == 15) Then
  429.         AnsiPos 24, 15
  430.         Print "@X70Search for a Internet Site       @X1B"
  431.     Endif
  432.     If (INTEGER007 == 14) Then
  433.         AnsiPos 24, 14
  434.         Print "@X70E-Mail Site (Electronic Mail)    @X1B"
  435.     Endif
  436.     If (INTEGER007 == 13) Then
  437.         AnsiPos 24, 13
  438.         Print "@X70UseNet Site (Newsgroup List)     @X1B"
  439.     Endif
  440.     If (INTEGER007 == 12) Then
  441.         AnsiPos 24, 12
  442.         Print "@X70TelNet Site (Remote Logon)       @X1B"
  443.     Endif
  444.     If (INTEGER007 == 11) Then
  445.         AnsiPos 24, 11
  446.         Print "@X70IRC Site (Internet Relay Chat)   @X1B"
  447.     Endif
  448.     If (INTEGER007 == 10) Then
  449.         AnsiPos 24, 10
  450.         Print "@X70WWW Site (World Wide Web)        @X1B"
  451.     Endif
  452.     If (INTEGER007 == 9) Then
  453.         AnsiPos 24, 9
  454.         Print "@X70FTP Site (File Transfer Protocol)@X1B"
  455.     Endif
  456.     Return
  457.     :LABEL005
  458.     STRING013 = ""
  459.     STRING012 = ""
  460.     While (Upper(STRING012) <> "Y") Do
  461.         STRING009 = "NO"
  462.         STRING012 = ""
  463.         STRING016 = "N"
  464.         Color 0
  465.         Cls
  466.         AnsiPos 1, 8
  467.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  468.         PrintLn "@X1B▌│@X1E                            INTERNET RELAY CHAT                            @X10│@X18▐@X1B"
  469.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  470.         PrintLn "@X1B▌│@X1A          Enter the address and description of a IRC site to add           @X10│@X18▐@X1B"
  471.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  472.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  473.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  474.         AnsiPos 3, 13
  475.         Print Space(75)
  476.         AnsiPos 3, 13
  477.         InputText " ", STRING013, 15, 70
  478.         AnsiPos 9, 16
  479.         Print "@X0EDid you enter this IRC site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  480.         InputText " ", STRING012, 15, 1
  481.         If (Upper(STRING012) == "Q") Break
  482.     EndWhile
  483.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  484.         FAppend 1, PPEPath() + "IRC.TXT", 1, 2
  485.         FPutLn 1, "     " + STRING013
  486.         FClose 1
  487.         AnsiPos 31, 18
  488.         PrintLn "@X0AIRC Site Added!"
  489.         Log "IRC Site Added: " + STRING013, 0
  490.         STRING009 = "YES"
  491.     Else
  492.         AnsiPos 35, 18
  493.         PrintLn "@X0CSkipped!"
  494.         STRING009 = "NO"
  495.     Endif
  496.     AnsiPos 1, 20
  497.     If (STRING009 == "YES") Then
  498.         Print "@X0E            Would you like to add another IRC site [@X0FY@X0E/@X0FN@X0E]"
  499.         InputText " ", STRING016, 15, 1
  500.         If (Upper(STRING016) == "Y") Goto LABEL005
  501.     Else
  502.         Wait
  503.     Endif
  504.     Return
  505.     :LABEL006
  506.     STRING013 = ""
  507.     STRING012 = ""
  508.     While (Upper(STRING012) <> "Y") Do
  509.         STRING009 = "NO"
  510.         STRING012 = ""
  511.         STRING016 = "N"
  512.         Color 0
  513.         Cls
  514.         AnsiPos 1, 8
  515.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  516.         PrintLn "@X1B▌│@X1E                          FILE TRANSFER PROTOCOL                           @X10│@X18▐@X1B"
  517.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  518.         PrintLn "@X1B▌│@X1A          Enter the address and description of a FTP site to add           @X10│@X18▐@X1B"
  519.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  520.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  521.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  522.         AnsiPos 3, 13
  523.         Print Space(75)
  524.         AnsiPos 3, 13
  525.         InputText " ", STRING013, 15, 70
  526.         AnsiPos 9, 16
  527.         Print "@X0EDid you enter this FTP site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  528.         InputText " ", STRING012, 15, 1
  529.         If (Upper(STRING012) == "Q") Break
  530.     EndWhile
  531.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  532.         FAppend 1, PPEPath() + "FTP.TXT", 1, 2
  533.         FPutLn 1, "     " + STRING013
  534.         FClose 1
  535.         AnsiPos 31, 18
  536.         PrintLn "@X0AFTP Site Added!"
  537.         Log "FTP Site Added: " + STRING013, 0
  538.         STRING009 = "YES"
  539.     Else
  540.         AnsiPos 35, 18
  541.         PrintLn "@X0CSkipped!"
  542.         STRING009 = "NO"
  543.     Endif
  544.     AnsiPos 1, 20
  545.     If (STRING009 == "YES") Then
  546.         Print "@X0E            Would you like to add another FTP site [@X0FY@X0E/@X0FN@X0E]"
  547.         InputText " ", STRING016, 15, 1
  548.         If (Upper(STRING016) == "Y") Goto LABEL006
  549.     Else
  550.         Wait
  551.     Endif
  552.     Return
  553.     :LABEL007
  554.     STRING013 = ""
  555.     STRING012 = ""
  556.     While (Upper(STRING012) <> "Y") Do
  557.         STRING009 = "NO"
  558.         STRING012 = ""
  559.         STRING016 = "N"
  560.         Color 0
  561.         Cls
  562.         AnsiPos 1, 8
  563.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  564.         PrintLn "@X1B▌│@X1E                              WORLD WIDE WEB                               @X10│@X18▐@X1B"
  565.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  566.         PrintLn "@X1B▌│@X1A          Enter the address and description of a WWW site to add           @X10│@X18▐@X1B"
  567.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  568.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  569.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  570.         AnsiPos 3, 13
  571.         Print Space(75)
  572.         AnsiPos 3, 13
  573.         InputText " ", STRING013, 15, 70
  574.         AnsiPos 9, 16
  575.         Print "@X0EDid you enter this WWW site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  576.         InputText " ", STRING012, 15, 1
  577.         If (Upper(STRING012) == "Q") Break
  578.     EndWhile
  579.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  580.         FAppend 1, PPEPath() + "WWW.TXT", 1, 2
  581.         FPutLn 1, "     " + STRING013
  582.         FClose 1
  583.         AnsiPos 31, 18
  584.         PrintLn "@X0AWWW Site Added!"
  585.         Log "WWW Site Added: " + STRING013, 0
  586.         STRING009 = "YES"
  587.     Else
  588.         AnsiPos 35, 18
  589.         PrintLn "@X0CSkipped!"
  590.         STRING009 = "NO"
  591.     Endif
  592.     AnsiPos 1, 20
  593.     If (STRING009 == "YES") Then
  594.         Print "@X0E            Would you like to add another WWW site [@X0FY@X0E/@X0FN@X0E]"
  595.         InputText " ", STRING016, 15, 1
  596.         If (Upper(STRING016) == "Y") Goto LABEL007
  597.     Else
  598.         Wait
  599.     Endif
  600.     Return
  601.     :LABEL008
  602.     STRING013 = ""
  603.     STRING012 = ""
  604.     While (Upper(STRING012) <> "Y") Do
  605.         STRING009 = "NO"
  606.         STRING012 = ""
  607.         STRING016 = "N"
  608.         Color 0
  609.         Cls
  610.         AnsiPos 1, 8
  611.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  612.         PrintLn "@X1B▌│@X1E                            TELNET REMOTE LOGON                            @X10│@X18▐@X1B"
  613.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  614.         PrintLn "@X1B▌│@X1A         Enter the address and description of a TelNet site to add         @X10│@X18▐@X1B"
  615.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  616.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  617.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  618.         AnsiPos 3, 13
  619.         Print Space(75)
  620.         AnsiPos 3, 13
  621.         InputText " ", STRING013, 15, 70
  622.         AnsiPos 7, 16
  623.         Print "@X0EDid you enter this TelNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  624.         InputText " ", STRING012, 15, 1
  625.         If (Upper(STRING012) == "Q") Break
  626.     EndWhile
  627.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  628.         FAppend 1, PPEPath() + "TELNET.TXT", 1, 2
  629.         FPutLn 1, "     " + STRING013
  630.         FClose 1
  631.         AnsiPos 30, 18
  632.         PrintLn "@X0ATelNet Site Added!"
  633.         Log "TelNet Site Added: " + STRING013, 0
  634.         STRING009 = "YES"
  635.     Else
  636.         AnsiPos 35, 18
  637.         PrintLn "@X0CSkipped!"
  638.         STRING009 = "NO"
  639.     Endif
  640.     AnsiPos 1, 20
  641.     If (STRING009 == "YES") Then
  642.         Print "@X0E          Would you like to add another TelNet site [@X0FY@X0E/@X0FN@X0E]"
  643.         InputText " ", STRING016, 15, 1
  644.         If (Upper(STRING016) == "Y") Goto LABEL008
  645.     Else
  646.         Wait
  647.     Endif
  648.     Return
  649.     :LABEL009
  650.     STRING013 = ""
  651.     STRING012 = ""
  652.     While (Upper(STRING012) <> "Y") Do
  653.         STRING009 = "NO"
  654.         STRING012 = ""
  655.         STRING016 = "N"
  656.         Color 0
  657.         Cls
  658.         AnsiPos 1, 8
  659.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  660.         PrintLn "@X1B▌│@X1E                             USENET NEWSGROUPS                             @X10│@X18▐@X1B"
  661.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  662.         PrintLn "@X1B▌│@X1A         Enter the address and description of a UseNet site to add         @X10│@X18▐@X1B"
  663.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  664.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  665.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  666.         AnsiPos 3, 13
  667.         Print Space(75)
  668.         AnsiPos 3, 13
  669.         InputText " ", STRING013, 15, 70
  670.         AnsiPos 7, 16
  671.         Print "@X0EDid you enter this UseNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  672.         InputText " ", STRING012, 15, 1
  673.         If (Upper(STRING012) == "Q") Break
  674.     EndWhile
  675.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  676.         FAppend 1, PPEPath() + "USENET.TXT", 1, 2
  677.         FPutLn 1, "     " + STRING013
  678.         FClose 1
  679.         AnsiPos 30, 18
  680.         PrintLn "@X0AUseNet Site Added!"
  681.         Log "UseNet Site Added: " + STRING013, 0
  682.         STRING009 = "YES"
  683.     Else
  684.         AnsiPos 35, 18
  685.         PrintLn "@X0CSkipped!"
  686.         STRING009 = "NO"
  687.     Endif
  688.     AnsiPos 1, 20
  689.     If (STRING009 == "YES") Then
  690.         Print "@X0E          Would you like to add another UseNet site [@X0FY@X0E/@X0FN@X0E]"
  691.         InputText " ", STRING016, 15, 1
  692.         If (Upper(STRING016) == "Y") Goto LABEL009
  693.     Else
  694.         Wait
  695.     Endif
  696.     Return
  697.     :LABEL010
  698.     STRING013 = ""
  699.     STRING012 = ""
  700.     While (Upper(STRING012) <> "Y") Do
  701.         STRING009 = "NO"
  702.         STRING012 = ""
  703.         STRING016 = "N"
  704.         Color 0
  705.         Cls
  706.         AnsiPos 1, 8
  707.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  708.         PrintLn "@X1B▌│@X1E                              ELECTRONIC MAIL                              @X10│@X18▐@X1B"
  709.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  710.         PrintLn "@X1B▌│@X1A        Enter the address and description of an E-Mail site to add         @X10│@X18▐@X1B"
  711.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  712.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  713.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  714.         AnsiPos 3, 13
  715.         Print Space(75)
  716.         AnsiPos 3, 13
  717.         InputText " ", STRING013, 15, 70
  718.         AnsiPos 7, 16
  719.         Print "@X0EDid you enter this E-Mail site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  720.         InputText " ", STRING012, 15, 1
  721.         If (Upper(STRING012) == "Q") Break
  722.     EndWhile
  723.     If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
  724.         FAppend 1, PPEPath() + "EMAIL.TXT", 1, 2
  725.         FPutLn 1, "     " + STRING013
  726.         FClose 1
  727.         AnsiPos 30, 18
  728.         PrintLn "@X0AE-Mail Site Added!"
  729.         Log "E-Mail Site Added: " + STRING013, 0
  730.         STRING009 = "YES"
  731.     Else
  732.         AnsiPos 35, 18
  733.         PrintLn "@X0CSkipped!"
  734.         STRING009 = "NO"
  735.     Endif
  736.     AnsiPos 1, 20
  737.     If (STRING009 == "YES") Then
  738.         Print "@X0E          Would you like to add another E-Mail site [@X0FY@X0E/@X0FN@X0E]"
  739.         InputText " ", STRING016, 15, 1
  740.         If (Upper(STRING016) == "Y") Goto LABEL010
  741.     Else
  742.         Wait
  743.     Endif
  744.     Return
  745.     :LABEL011
  746.     STRING006 = "NO"
  747.     INTEGER009 = 0
  748.     INTEGER010 = 0
  749.     INTEGER011 = 0
  750.     INTEGER012 = 0
  751.     FOpen 1, PPEPath() + "IRC.TXT", 0, 2
  752.     FGet 1, STRING013
  753.     :LABEL012
  754.     If (Ferr(1)) Goto LABEL013
  755.     INTEGER009 = INTEGER009 + 1
  756.     TSTRING023(INTEGER009) = STRING013
  757.     If (INTEGER009 > 249) Goto LABEL013
  758.     FGet 1, STRING013
  759.     Goto LABEL012
  760.     :LABEL013
  761.     If (INTEGER009 > 249) Then
  762.         FGet 1, STRING013
  763.         :LABEL014
  764.         If (Ferr(1)) Goto LABEL015
  765.         INTEGER010 = INTEGER010 + 1
  766.         TSTRING024(INTEGER010) = STRING013
  767.         If (INTEGER010 > 249) Goto LABEL015
  768.         FGet 1, STRING013
  769.         Goto LABEL014
  770.     Endif
  771.     :LABEL015
  772.     FClose 1
  773.     While (STRING006 <> "YES") Do
  774.         STRING007 = ""
  775.         Color 0
  776.         Cls
  777.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  778.         PrintLn "@X0B▐@X1B │@X1E                           INTERNET RELAY CHAT                           @X10│@X1B @X08▌@X0B"
  779.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  780.         PrintLn "@X00"
  781.         Color 15
  782.         For INTEGER004 = 1 To 16
  783.             If (INTEGER011 < 250) Then
  784.                 INTEGER011 = INTEGER011 + 1
  785.                 If (INTEGER011 <= INTEGER009) Then
  786.                     PrintLn TSTRING023(INTEGER011)
  787.                     Goto LABEL016
  788.                 Endif
  789.                 STRING006 = "YES"
  790.                 Break
  791.                 :LABEL016
  792.                 Continue
  793.             Endif
  794.             INTEGER012 = INTEGER012 + 1
  795.             If (INTEGER012 <= INTEGER010) Then
  796.                 PrintLn TSTRING024(INTEGER012)
  797.                 Continue
  798.             Endif
  799.             STRING006 = "YES"
  800.             Break
  801.         Next
  802.         If (STRING006 <> "YES") Then
  803.             PrintLn "@X00"
  804.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  805.             InputText " ", STRING007, 15, 1
  806.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  807.             Continue
  808.         Endif
  809.         PrintLn "@X00"
  810.         Wait
  811.     EndWhile
  812.     Return
  813.     :LABEL017
  814.     STRING006 = "NO"
  815.     INTEGER009 = 0
  816.     INTEGER010 = 0
  817.     INTEGER011 = 0
  818.     INTEGER012 = 0
  819.     FOpen 1, PPEPath() + "FTP.TXT", 0, 2
  820.     FGet 1, STRING013
  821.     :LABEL018
  822.     If (Ferr(1)) Goto LABEL019
  823.     INTEGER009 = INTEGER009 + 1
  824.     TSTRING023(INTEGER009) = STRING013
  825.     If (INTEGER009 > 249) Goto LABEL019
  826.     FGet 1, STRING013
  827.     Goto LABEL018
  828.     :LABEL019
  829.     If (INTEGER009 > 249) Then
  830.         FGet 1, STRING013
  831.         :LABEL020
  832.         If (Ferr(1)) Goto LABEL021
  833.         INTEGER010 = INTEGER010 + 1
  834.         TSTRING024(INTEGER010) = STRING013
  835.         If (INTEGER010 > 249) Goto LABEL021
  836.         FGet 1, STRING013
  837.         Goto LABEL020
  838.     Endif
  839.     :LABEL021
  840.     FClose 1
  841.     While (STRING006 <> "YES") Do
  842.         STRING007 = ""
  843.         Color 0
  844.         Cls
  845.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  846.         PrintLn "@X0B▐@X1B │@X1E                         FILE TRANSFER PROTOCOL                          @X10│@X1B @X08▌@X0B"
  847.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  848.         PrintLn "@X00"
  849.         Color 15
  850.         For INTEGER004 = 1 To 16
  851.             If (INTEGER011 < 250) Then
  852.                 INTEGER011 = INTEGER011 + 1
  853.                 If (INTEGER011 <= INTEGER009) Then
  854.                     PrintLn TSTRING023(INTEGER011)
  855.                     Goto LABEL022
  856.                 Endif
  857.                 STRING006 = "YES"
  858.                 Break
  859.                 :LABEL022
  860.                 Continue
  861.             Endif
  862.             INTEGER012 = INTEGER012 + 1
  863.             If (INTEGER012 <= INTEGER010) Then
  864.                 PrintLn TSTRING024(INTEGER012)
  865.                 Continue
  866.             Endif
  867.             STRING006 = "YES"
  868.             Break
  869.         Next
  870.         If (STRING006 <> "YES") Then
  871.             PrintLn "@X00"
  872.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  873.             InputText " ", STRING007, 15, 1
  874.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  875.             Continue
  876.         Endif
  877.         PrintLn "@X00"
  878.         Wait
  879.     EndWhile
  880.     Return
  881.     :LABEL023
  882.     STRING006 = "NO"
  883.     INTEGER009 = 0
  884.     INTEGER010 = 0
  885.     INTEGER011 = 0
  886.     INTEGER012 = 0
  887.     FOpen 1, PPEPath() + "WWW.TXT", 0, 2
  888.     FGet 1, STRING013
  889.     :LABEL024
  890.     If (Ferr(1)) Goto LABEL025
  891.     INTEGER009 = INTEGER009 + 1
  892.     TSTRING023(INTEGER009) = STRING013
  893.     If (INTEGER009 > 249) Goto LABEL025
  894.     FGet 1, STRING013
  895.     Goto LABEL024
  896.     :LABEL025
  897.     If (INTEGER009 > 249) Then
  898.         FGet 1, STRING013
  899.         :LABEL026
  900.         If (Ferr(1)) Goto LABEL027
  901.         INTEGER010 = INTEGER010 + 1
  902.         TSTRING024(INTEGER010) = STRING013
  903.         If (INTEGER010 > 249) Goto LABEL027
  904.         FGet 1, STRING013
  905.         Goto LABEL026
  906.     Endif
  907.     :LABEL027
  908.     FClose 1
  909.     While (STRING006 <> "YES") Do
  910.         STRING007 = ""
  911.         Color 0
  912.         Cls
  913.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  914.         PrintLn "@X0B▐@X1B │@X1E                             WORLD WIDE WEB                              @X10│@X1B @X08▌@X0B"
  915.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  916.         PrintLn "@X00"
  917.         Color 15
  918.         For INTEGER004 = 1 To 16
  919.             If (INTEGER011 < 250) Then
  920.                 INTEGER011 = INTEGER011 + 1
  921.                 If (INTEGER011 <= INTEGER009) Then
  922.                     PrintLn TSTRING023(INTEGER011)
  923.                     Goto LABEL028
  924.                 Endif
  925.                 STRING006 = "YES"
  926.                 Break
  927.                 :LABEL028
  928.                 Continue
  929.             Endif
  930.             INTEGER012 = INTEGER012 + 1
  931.             If (INTEGER012 <= INTEGER010) Then
  932.                 PrintLn TSTRING024(INTEGER012)
  933.                 Continue
  934.             Endif
  935.             STRING006 = "YES"
  936.             Break
  937.         Next
  938.         If (STRING006 <> "YES") Then
  939.             PrintLn "@X00"
  940.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  941.             InputText " ", STRING007, 15, 1
  942.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  943.             Continue
  944.         Endif
  945.         PrintLn "@X00"
  946.         Wait
  947.     EndWhile
  948.     Return
  949.     :LABEL029
  950.     STRING006 = "NO"
  951.     INTEGER009 = 0
  952.     INTEGER010 = 0
  953.     INTEGER011 = 0
  954.     INTEGER012 = 0
  955.     FOpen 1, PPEPath() + "TELNET.TXT", 0, 2
  956.     FGet 1, STRING013
  957.     :LABEL030
  958.     If (Ferr(1)) Goto LABEL031
  959.     INTEGER009 = INTEGER009 + 1
  960.     TSTRING023(INTEGER009) = STRING013
  961.     If (INTEGER009 > 249) Goto LABEL031
  962.     FGet 1, STRING013
  963.     Goto LABEL030
  964.     :LABEL031
  965.     If (INTEGER009 > 249) Then
  966.         FGet 1, STRING013
  967.         :LABEL032
  968.         If (Ferr(1)) Goto LABEL033
  969.         INTEGER010 = INTEGER010 + 1
  970.         TSTRING024(INTEGER010) = STRING013
  971.         If (INTEGER010 > 249) Goto LABEL033
  972.         FGet 1, STRING013
  973.         Goto LABEL032
  974.     Endif
  975.     :LABEL033
  976.     FClose 1
  977.     While (STRING006 <> "YES") Do
  978.         STRING007 = ""
  979.         Color 0
  980.         Cls
  981.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  982.         PrintLn "@X0B▐@X1B │@X1E                           TELNET REMOTE LOGON                           @X10│@X1B @X08▌@X0B"
  983.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  984.         PrintLn "@X00"
  985.         Color 15
  986.         For INTEGER004 = 1 To 16
  987.             If (INTEGER011 < 250) Then
  988.                 INTEGER011 = INTEGER011 + 1
  989.                 If (INTEGER011 <= INTEGER009) Then
  990.                     PrintLn TSTRING023(INTEGER011)
  991.                     Goto LABEL034
  992.                 Endif
  993.                 STRING006 = "YES"
  994.                 Break
  995.                 :LABEL034
  996.                 Continue
  997.             Endif
  998.             INTEGER012 = INTEGER012 + 1
  999.             If (INTEGER012 <= INTEGER010) Then
  1000.                 PrintLn TSTRING024(INTEGER012)
  1001.                 Continue
  1002.             Endif
  1003.             STRING006 = "YES"
  1004.             Break
  1005.         Next
  1006.         If (STRING006 <> "YES") Then
  1007.             PrintLn "@X00"
  1008.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  1009.             InputText " ", STRING007, 15, 1
  1010.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  1011.             Continue
  1012.         Endif
  1013.         PrintLn "@X00"
  1014.         Wait
  1015.     EndWhile
  1016.     Return
  1017.     :LABEL035
  1018.     STRING006 = "NO"
  1019.     INTEGER009 = 0
  1020.     INTEGER010 = 0
  1021.     INTEGER011 = 0
  1022.     INTEGER012 = 0
  1023.     FOpen 1, PPEPath() + "USENET.TXT", 0, 2
  1024.     FGet 1, STRING013
  1025.     :LABEL036
  1026.     If (Ferr(1)) Goto LABEL037
  1027.     INTEGER009 = INTEGER009 + 1
  1028.     TSTRING023(INTEGER009) = STRING013
  1029.     If (INTEGER009 > 249) Goto LABEL037
  1030.     FGet 1, STRING013
  1031.     Goto LABEL036
  1032.     :LABEL037
  1033.     If (INTEGER009 > 249) Then
  1034.         FGet 1, STRING013
  1035.         :LABEL038
  1036.         If (Ferr(1)) Goto LABEL039
  1037.         INTEGER010 = INTEGER010 + 1
  1038.         TSTRING024(INTEGER010) = STRING013
  1039.         If (INTEGER010 > 249) Goto LABEL039
  1040.         FGet 1, STRING013
  1041.         Goto LABEL038
  1042.     Endif
  1043.     :LABEL039
  1044.     FClose 1
  1045.     While (STRING006 <> "YES") Do
  1046.         STRING007 = ""
  1047.         Color 0
  1048.         Cls
  1049.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  1050.         PrintLn "@X0B▐@X1B │@X1E                            USENET NEWSGROUPS                            @X10│@X1B @X08▌@X0B"
  1051.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  1052.         PrintLn "@X00"
  1053.         Color 15
  1054.         For INTEGER004 = 1 To 16
  1055.             If (INTEGER011 < 250) Then
  1056.                 INTEGER011 = INTEGER011 + 1
  1057.                 If (INTEGER011 <= INTEGER009) Then
  1058.                     PrintLn TSTRING023(INTEGER011)
  1059.                     Goto LABEL040
  1060.                 Endif
  1061.                 STRING006 = "YES"
  1062.                 Break
  1063.                 :LABEL040
  1064.                 Continue
  1065.             Endif
  1066.             INTEGER012 = INTEGER012 + 1
  1067.             If (INTEGER012 <= INTEGER010) Then
  1068.                 PrintLn TSTRING024(INTEGER012)
  1069.                 Continue
  1070.             Endif
  1071.             STRING006 = "YES"
  1072.             Break
  1073.         Next
  1074.         If (STRING006 <> "YES") Then
  1075.             PrintLn "@X00"
  1076.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  1077.             InputText " ", STRING007, 15, 1
  1078.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  1079.             Continue
  1080.         Endif
  1081.         PrintLn "@X00"
  1082.         Wait
  1083.     EndWhile
  1084.     Return
  1085.     :LABEL041
  1086.     STRING006 = "NO"
  1087.     INTEGER009 = 0
  1088.     INTEGER010 = 0
  1089.     INTEGER011 = 0
  1090.     INTEGER012 = 0
  1091.     FOpen 1, PPEPath() + "EMAIL.TXT", 0, 2
  1092.     FGet 1, STRING013
  1093.     :LABEL042
  1094.     If (Ferr(1)) Goto LABEL043
  1095.     INTEGER009 = INTEGER009 + 1
  1096.     TSTRING023(INTEGER009) = STRING013
  1097.     If (INTEGER009 > 249) Goto LABEL043
  1098.     FGet 1, STRING013
  1099.     Goto LABEL042
  1100.     :LABEL043
  1101.     If (INTEGER009 > 249) Then
  1102.         FGet 1, STRING013
  1103.         :LABEL044
  1104.         If (Ferr(1)) Goto LABEL045
  1105.         INTEGER010 = INTEGER010 + 1
  1106.         TSTRING024(INTEGER010) = STRING013
  1107.         If (INTEGER010 > 249) Goto LABEL045
  1108.         FGet 1, STRING013
  1109.         Goto LABEL044
  1110.     Endif
  1111.     :LABEL045
  1112.     FClose 1
  1113.     While (STRING006 <> "YES") Do
  1114.         STRING007 = ""
  1115.         Color 0
  1116.         Cls
  1117.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  1118.         PrintLn "@X0B▐@X1B │@X1E                             ELECTRONIC MAIL                             @X10│@X1B @X08▌@X0B"
  1119.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  1120.         PrintLn "@X00"
  1121.         Color 15
  1122.         For INTEGER004 = 1 To 16
  1123.             If (INTEGER011 < 250) Then
  1124.                 INTEGER011 = INTEGER011 + 1
  1125.                 If (INTEGER011 <= INTEGER009) Then
  1126.                     PrintLn TSTRING023(INTEGER011)
  1127.                     Goto LABEL046
  1128.                 Endif
  1129.                 STRING006 = "YES"
  1130.                 Break
  1131.                 :LABEL046
  1132.                 Continue
  1133.             Endif
  1134.             INTEGER012 = INTEGER012 + 1
  1135.             If (INTEGER012 <= INTEGER010) Then
  1136.                 PrintLn TSTRING024(INTEGER012)
  1137.                 Continue
  1138.             Endif
  1139.             STRING006 = "YES"
  1140.             Break
  1141.         Next
  1142.         If (STRING006 <> "YES") Then
  1143.             PrintLn "@X00"
  1144.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  1145.             InputText " ", STRING007, 15, 1
  1146.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  1147.             Continue
  1148.         Endif
  1149.         PrintLn "@X00"
  1150.         Wait
  1151.     EndWhile
  1152.     Return
  1153.     :LABEL047
  1154.     INTEGER008 = 0
  1155.     STRING014 = "NO"
  1156.     STRING018 = ""
  1157.     STRING017 = ""
  1158.     STRING015 = ""
  1159.     Select Case (Upper(STRING008))
  1160.         Case "I"
  1161.             AnsiPos 1, 14
  1162.             Print "@X0EEnter a full or partial IRC site to search for:"
  1163.             InputText " ", STRING015, 15, 30
  1164.             If (STRING015 <> "") Then
  1165.                 STRING017 = PPEPath() + "IRC.TXT"
  1166.                 STRING004 = "IRC"
  1167.                 Gosub LABEL056
  1168.                 If (STRING014 == "YES") Then
  1169.                     AnsiPos 1, 16
  1170.                     Print "@X0F", INTEGER008
  1171.                     PrintLn "@X0A matches found in IRC site listing!"
  1172.                     AnsiPos 1, 18
  1173.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1174.                     If (Upper(STRING018) == YesChar()) Then
  1175.                         Gosub LABEL055
  1176.                     Endif
  1177.                     Goto LABEL048
  1178.                 Endif
  1179.                 AnsiPos 1, 16
  1180.                 PrintLn "@X0CNo matches were found!"
  1181.                 PrintLn "@X00"
  1182.                 Wait
  1183.             Endif
  1184.             :LABEL048
  1185.         Case "F"
  1186.             AnsiPos 1, 14
  1187.             Print "@X0EEnter a full or partial FTP site to search for:"
  1188.             InputText " ", STRING015, 15, 30
  1189.             If (STRING015 <> "") Then
  1190.                 STRING017 = PPEPath() + "FTP.TXT"
  1191.                 STRING004 = "FTP"
  1192.                 Gosub LABEL056
  1193.                 If (STRING014 == "YES") Then
  1194.                     AnsiPos 1, 16
  1195.                     Print "@X0F", INTEGER008
  1196.                     PrintLn "@X0A matches found in FTP site listing!"
  1197.                     AnsiPos 1, 18
  1198.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1199.                     If (Upper(STRING018) == YesChar()) Then
  1200.                         Gosub LABEL055
  1201.                     Endif
  1202.                     Goto LABEL049
  1203.                 Endif
  1204.                 AnsiPos 1, 16
  1205.                 PrintLn "@X0CNo matches were found!"
  1206.                 PrintLn "@X00"
  1207.                 Wait
  1208.             Endif
  1209.             :LABEL049
  1210.         Case "W"
  1211.             AnsiPos 1, 14
  1212.             Print "@X0EEnter a full or partial WWW site to search for:"
  1213.             InputText " ", STRING015, 15, 30
  1214.             If (STRING015 <> "") Then
  1215.                 STRING017 = PPEPath() + "WWW.TXT"
  1216.                 STRING004 = "WWW"
  1217.                 Gosub LABEL056
  1218.                 If (STRING014 == "YES") Then
  1219.                     AnsiPos 1, 16
  1220.                     Print "@X0F", INTEGER008
  1221.                     PrintLn "@X0A matches found in WWW site listing!"
  1222.                     AnsiPos 1, 18
  1223.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1224.                     If (Upper(STRING018) == YesChar()) Then
  1225.                         Gosub LABEL055
  1226.                     Endif
  1227.                     Goto LABEL050
  1228.                 Endif
  1229.                 AnsiPos 1, 16
  1230.                 PrintLn "@X0CNo matches were found!"
  1231.                 PrintLn "@X00"
  1232.                 Wait
  1233.             Endif
  1234.             :LABEL050
  1235.         Case "T"
  1236.             AnsiPos 1, 14
  1237.             Print "@X0EEnter a full or partial TelNet site to search for:"
  1238.             InputText " ", STRING015, 15, 30
  1239.             If (STRING015 <> "") Then
  1240.                 STRING017 = PPEPath() + "TELNET.TXT"
  1241.                 STRING004 = "TelNet"
  1242.                 Gosub LABEL056
  1243.                 If (STRING014 == "YES") Then
  1244.                     AnsiPos 1, 16
  1245.                     Print "@X0F", INTEGER008
  1246.                     PrintLn "@X0A matches found in TelNet site listing!"
  1247.                     AnsiPos 1, 18
  1248.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1249.                     If (Upper(STRING018) == YesChar()) Then
  1250.                         Gosub LABEL055
  1251.                     Endif
  1252.                     Goto LABEL051
  1253.                 Endif
  1254.                 AnsiPos 1, 16
  1255.                 PrintLn "@X0CNo matches were found!"
  1256.                 PrintLn "@X00"
  1257.                 Wait
  1258.             Endif
  1259.             :LABEL051
  1260.         Case "U"
  1261.             AnsiPos 1, 14
  1262.             Print "@X0EEnter a full or partial UseNet site to search for:"
  1263.             InputText " ", STRING015, 15, 30
  1264.             If (STRING015 <> "") Then
  1265.                 STRING017 = PPEPath() + "USENET.TXT"
  1266.                 STRING004 = "UseNet"
  1267.                 Gosub LABEL056
  1268.                 If (STRING014 == "YES") Then
  1269.                     AnsiPos 1, 16
  1270.                     Print "@X0F", INTEGER008
  1271.                     PrintLn "@X0A matches found in UseNet site listing!"
  1272.                     AnsiPos 1, 18
  1273.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1274.                     If (Upper(STRING018) == YesChar()) Then
  1275.                         Gosub LABEL055
  1276.                     Endif
  1277.                     Goto LABEL052
  1278.                 Endif
  1279.                 AnsiPos 1, 16
  1280.                 PrintLn "@X0CNo matches were found!"
  1281.                 PrintLn "@X00"
  1282.                 Wait
  1283.             Endif
  1284.             :LABEL052
  1285.         Case "E"
  1286.             AnsiPos 1, 14
  1287.             Print "@X0EEnter a full or partial E-Mail site to search for:"
  1288.             InputText " ", STRING015, 15, 30
  1289.             If (STRING015 <> "") Then
  1290.                 STRING017 = PPEPath() + "EMAIL.TXT"
  1291.                 STRING004 = "E-Mail"
  1292.                 Gosub LABEL056
  1293.                 If (STRING014 == "YES") Then
  1294.                     AnsiPos 1, 16
  1295.                     Print "@X0F", INTEGER008
  1296.                     PrintLn "@X0A matches found in E-Mail site listing!"
  1297.                     AnsiPos 1, 18
  1298.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1299.                     If (Upper(STRING018) == YesChar()) Then
  1300.                         Gosub LABEL055
  1301.                     Endif
  1302.                     Goto LABEL053
  1303.                 Endif
  1304.                 AnsiPos 1, 16
  1305.                 PrintLn "@X0CNo matches were found!"
  1306.                 PrintLn "@X00"
  1307.                 Wait
  1308.             Endif
  1309.             :LABEL053
  1310.         Case "A"
  1311.             AnsiPos 1, 14
  1312.             Print "@X0EEnter a full or partial Internet site to search for:"
  1313.             InputText " ", STRING015, 15, 30
  1314.         Case ""
  1315.             INTEGER006 = 1
  1316.             While (INTEGER006 < 7) Do
  1317.                 STRING018 = ""
  1318.                 INTEGER008 = 0
  1319.                 STRING014 = "NO"
  1320.                 If (INTEGER006 == 1) Then
  1321.                     STRING017 = PPEPath() + "EMAIL.TXT"
  1322.                     STRING004 = "E-Mail"
  1323.                 Endif
  1324.                 If (INTEGER006 == 2) Then
  1325.                     STRING017 = PPEPath() + "FTP.TXT"
  1326.                     STRING004 = "FTP"
  1327.                 Endif
  1328.                 If (INTEGER006 == 3) Then
  1329.                     STRING017 = PPEPath() + "IRC.TXT"
  1330.                     STRING004 = "IRC"
  1331.                 Endif
  1332.                 If (INTEGER006 == 4) Then
  1333.                     STRING017 = PPEPath() + "TELNET.TXT"
  1334.                     STRING004 = "TelNet"
  1335.                 Endif
  1336.                 If (INTEGER006 == 5) Then
  1337.                     STRING017 = PPEPath() + "USENET.TXT"
  1338.                     STRING004 = "UseNet"
  1339.                 Endif
  1340.                 If (INTEGER006 == 6) Then
  1341.                     STRING017 = PPEPath() + "WWW.TXT"
  1342.                     STRING004 = "WWW"
  1343.                 Endif
  1344.                 Gosub LABEL056
  1345.                 If (STRING014 == "YES") Then
  1346.                     Color 0
  1347.                     Cls
  1348.                     AnsiPos 20, 11
  1349.                     Print "@X0F", INTEGER008
  1350.                     PrintLn "@X0A matches found in ", STRING004, " site listing!"
  1351.                     AnsiPos 20, 13
  1352.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
  1353.                     If (Upper(STRING018) == YesChar()) Then
  1354.                         Gosub LABEL055
  1355.                     Endif
  1356.                     Goto LABEL054
  1357.                 Endif
  1358.                 Color 0
  1359.                 Cls
  1360.                 AnsiPos 20, 12
  1361.                 PrintLn "@X0CNo matches found in ", STRING004, " site listing."
  1362.                 PrintLn "@X00"
  1363.                 Wait
  1364.                 :LABEL054
  1365.                 INTEGER006 = INTEGER006 + 1
  1366.             EndWhile
  1367.     End Select
  1368.     Return
  1369.     :LABEL055
  1370.     STRING006 = "NO"
  1371.     INTEGER013 = 0
  1372.     While (STRING006 <> "YES") Do
  1373.         STRING007 = ""
  1374.         Color 0
  1375.         Cls
  1376.         PrintLn "@X0A     ", STRING004, " sites found matching your search string are as follows:"
  1377.         PrintLn "@X00"
  1378.         Color 15
  1379.         For INTEGER003 = 1 To 18
  1380.             INTEGER013 = INTEGER013 + 1
  1381.             If (INTEGER013 <= INTEGER008) Then
  1382.                 PrintLn TSTRING022(INTEGER013)
  1383.                 Continue
  1384.             Endif
  1385.             STRING006 = "YES"
  1386.             Break
  1387.         Next
  1388.         If (STRING006 <> "YES") Then
  1389.             PrintLn "@X00"
  1390.             Print "@X0E     Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
  1391.             InputText " ", STRING007, 15, 1
  1392.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  1393.             Continue
  1394.         Endif
  1395.         PrintLn "@X00"
  1396.         Wait
  1397.     EndWhile
  1398.     Return
  1399.     :LABEL056
  1400.     FOpen 1, STRING017, 0, 2
  1401.     FGet 1, STRING013
  1402.     :LABEL057
  1403.     If (Ferr(1)) Goto LABEL058
  1404.     INTEGER005 = 0
  1405.     INTEGER005 = InStr(Upper(STRING013), Upper(STRING015))
  1406.     If (INTEGER005 > 0) Then
  1407.         STRING014 = "YES"
  1408.         INTEGER008 = INTEGER008 + 1
  1409.         TSTRING022(INTEGER008) = STRING013
  1410.         If (INTEGER008 > 99) Goto LABEL058
  1411.     Endif
  1412.     FGet 1, STRING013
  1413.     Goto LABEL057
  1414.     :LABEL058
  1415.     FClose 1
  1416.     Return
  1417.     :LABEL059
  1418.     For INTEGER004 = 8 To 20
  1419.         AnsiPos 1, INTEGER004
  1420.         Color 0
  1421.         ClrEol
  1422.     Next
  1423.     Return
  1424.  
  1425. ;------------------------------------------------------------------------------
  1426. ;
  1427. ; Usage report (before postprocessing)
  1428. ;
  1429. ; ■ Statements used :
  1430. ;
  1431. ;    2       End
  1432. ;    17      Cls
  1433. ;    1       ClrEol
  1434. ;    21      Wait
  1435. ;    25      Color 
  1436. ;    314     Goto 
  1437. ;    275     Let 
  1438. ;    72      Print 
  1439. ;    159     PrintLn 
  1440. ;    217     If 
  1441. ;    8       FOpen 
  1442. ;    6       FAppend 
  1443. ;    14      FClose 
  1444. ;    26      FGet 
  1445. ;    6       FPutLn 
  1446. ;    7       Log 
  1447. ;    7       InputYN 
  1448. ;    38      Gosub 
  1449. ;    18      Return
  1450. ;    1       Delay 
  1451. ;    40      InputText 
  1452. ;    104     AnsiPos 
  1453. ;    7       Download 
  1454. ;    3       EndProc
  1455. ;
  1456. ;
  1457. ; ■ Functions used :
  1458. ;
  1459. ;    73      +
  1460. ;    1       -
  1461. ;    118     ==
  1462. ;    41      <>
  1463. ;    16      <
  1464. ;    21      <=
  1465. ;    21      >
  1466. ;    16      >=
  1467. ;    173     !
  1468. ;    22      &&
  1469. ;    8       ||
  1470. ;    75      Upper()
  1471. ;    2       Left()
  1472. ;    6       Space()
  1473. ;    13      Ferr()
  1474. ;    10      Chr()
  1475. ;    1       InStr()
  1476. ;    7       YesChar()
  1477. ;    1       Inkey()
  1478. ;    25      PPEPath()
  1479. ;    1       AnsiOn()
  1480. ;    1       GetDrive()
  1481. ;    1       FTell()
  1482. ;    1       Os()
  1483. ;
  1484. ;------------------------------------------------------------------------------
  1485. ;
  1486. ; Analysis flags : No flag
  1487. ;
  1488. ;------------------------------------------------------------------------------
  1489. ;
  1490. ; Postprocessing report
  1491. ;
  1492. ;    8       For/Next
  1493. ;    16      While/EndWhile
  1494. ;    128     If/Then or If/Then/Else
  1495. ;    1       Select Case
  1496. ;
  1497. ;------------------------------------------------------------------------------
  1498. ;                 AEGiS Corp - Break the routines, code against the machines!
  1499. ;------------------------------------------------------------------------------
  1500.